home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacMETH 3.2.1 / MacMETH Manual 1992 / Manual Examples / InOutExample.MOD < prev    next >
Encoding:
Text File  |  1992-10-09  |  754 b   |  37 lines  |  [TEXT/MEDT]
  1. MODULE InOutExample;
  2.  
  3.     (* this program reads real numbers from an input file and writes these    *)
  4.     (* numbers on the screen (i.e. the "Terminal" window).    *)
  5.  
  6. FROM InOut IMPORT    Done, OpenInput, CloseInput,
  7.                         ReadReal, Read, WriteReal, WriteLn;
  8.   
  9. VAR    r:        REAL;
  10.           i:        CARDINAL;
  11.           ch:    CHAR;
  12.   
  13. BEGIN
  14.       OpenInput("TXT");
  15.       IF Done THEN
  16.         i := 0;
  17.         LOOP
  18.               ReadReal(r);
  19.               IF ~Done THEN
  20.                 (* end of input file reached *)
  21.                 EXIT
  22.              ELSE
  23.                 WriteReal(r,20);
  24.                 i := (i+1) MOD 4;
  25.                 IF i=0 THEN
  26.                       WriteLn
  27.                 END (* IF *)
  28.               END (* IF *)
  29.         END (* LOOP *);
  30.         CloseInput;
  31.         Read(ch);
  32.       ELSE
  33.         (* Input file not opened ! *)
  34.      END (* IF *)
  35. END InOutExample.
  36.  
  37.